﻿Public Class UCAsistUsuario2

    Private Sub cbcoduser_EditValueChanged(sender As System.Object, e As System.EventArgs) Handles cbcoduser.EditValueChanged

        Dim editor As DevExpress.XtraEditors.LookUpEdit = CType(sender, DevExpress.XtraEditors.LookUpEdit)
        Dim row As DataRowView = CType(editor.Properties.GetDataSourceRowByKeyValue(editor.EditValue), DataRowView)
        cbcodnive.EditValue = row("codnive")

    End Sub
End Class
